home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / np-file < prev    next >
Encoding:
Text File  |  1996-09-27  |  1.7 KB  |  56 lines
  1. @if-using not(ocl-file-np-file)
  2.    @use (ocl-file-np-file)
  3.    ;OCL{{{}}}
  4.    ;OCL{{{  reference description
  5.    @if-using ( FUN-REFERENCE ) ; 1 ;
  6.    OCL replacement for the Origami functions  `next-file'  and  `previous-
  7.    file'.
  8.    @fi
  9.    ;OCL}}}
  10.    ;OCL{{{  n-p-file-jump
  11.    ( deffun ( x ) n-p-file-jump
  12.       ( local
  13.          ( modify-behaviour )
  14.          ( set modify-behaviour +(file-number x 1)
  15.            read-list-file
  16.          )
  17.       )
  18.    )
  19.    ;OCL}}}
  20.    ;OCL{{{  next-file
  21.    ;OCL{{{  reference
  22.    @if-using ( FUN-REFERENCE ) ; 2 ; next-file-ref
  23.    ;OCL{{{  next-file
  24.    Read the next file given in the command  line or edited  previously,
  25.    saving the current file if required.  If there is no next file,  the
  26.    list of command line and edited files is used instead.
  27.  
  28.    \fB>>>O_NEXT_FILE<<<\fP tries to reach the same line, you  were  the
  29.    last time, you edited this file. This command  neither  changes  to
  30.    another buffer nor does it open a new buffer.
  31.    ;OCL}}}
  32.    @fi
  33.    ;OCL}}}
  34.    ( deffun next-file ( n-p-file-jump(1) ) )
  35.    ;OCL}}}
  36.    ;OCL{{{  previous-file
  37.    ;OCL{{{  reference
  38.    @if-using ( FUN-REFERENCE ) ; 2 ; previous-file-ref
  39.    ;OCL{{{  previous-file
  40.    Read the last file given in the command  line or edited  previously,
  41.    saving the current file if required.  If there is no next file,  the
  42.    list of command line and edited files is used instead.
  43.  
  44.    \fB>>>O_NEXT_FILE<<<\fP tries to reach the same line, you  were  the
  45.    last time, you edited this file. This command  neither  changes  to
  46.    another buffer nor does it open a new buffer.
  47.    ;OCL}}}
  48.    @fi
  49.    ;OCL}}}
  50.    ( deffun previous-file ( n-p-file-jump(-1) ) )
  51.    ;OCL}}}
  52.    ;OCL{{{  undeclares
  53.    ( undeclare ( n-p-file-jump ) )
  54.    ;OCL}}}
  55. @fi
  56.